#!C:\strawberry\perl\bin\perl.exe

use LWP::UserAgent;
use HTTP::Request::Common qw(POST GET);
use XML::Simple;

my $ua = LWP::UserAgent->new();
my $req = GET 'http://aap_ugr:xxx@twitter.com/statuses/user_timeline.xml';
my $res = $ua->request($req);
print "Resultado:\n",$res->content,"\n";

my $documento = XMLin($res->content);
for my $h (%{$documento->{status}}) {
    print $h->{'created_at'},"--> ",$h->{'text'},"\n\n";
}
